home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 December / 1986-12.d64 / sprite graph (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  643b  |  19 lines
  1. 10 print"[147]              sprite graph"
  2. 20 input"how many graphs";b:f=1:if b<1 then end
  3. 30 open3,4:print#3,chr$(14)"  sprite graph":a=1:rem chr$(14)-double width mode
  4. 40 fori=1to24:print#3:print#3
  5. 50 print#3,chr$(15)"     1       1       1":rem chr$(15)-standard char mode
  6. 60 print#3,chr$(15)"     2631    2631    2631"
  7. 70 print#3,chr$(15)"     842684218426842184268421"chr$(8):rem chr$(8)-bit image
  8. 80 print#3,chr$(15)"    [176][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174]"chr$(8)
  9. 90 print#3,chr$(15)a;" [171][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][179]"chr$(8):a=a+1
  10. 100 if a>9 then 120
  11. 110 goto 90
  12. 120 print#3,chr$(15)a;"[171][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][179]"chr$(8):a=a+1
  13. 130 if a=21 then 150
  14. 140 goto 120
  15. 150 print#3,chr$(15)" 21 [173][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][189]"chr$(8)
  16. 160 print#3:print f:f=f+1
  17. 170 if f<b+1 then a=1:goto 40
  18. 180 close3:end
  19.